home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / IKC-5LC.ZIP / IKC-5LC.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-08-20  |  4KB  |  260 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.     String   STRING017
  36.     String   STRING018
  37.     String   STRING019
  38.     String   STRING020
  39.     String   STRING021
  40.     String   STRING022
  41.     String   STRING023
  42.     String   STRING024
  43.     String   STRING025
  44.  
  45. ;------------------------------------------------------------------------------
  46.  
  47.     GetUser
  48.     If (Exist(PPEPath() + "IKC-LST.DAT")) Goto LABEL001
  49.     FCreate 1, PPEPath() + "IKC-LST.DAT", 2, 0
  50.     FPutLn 1, "trippah"
  51.     FPutLn 1, "28800"
  52.     FPutLn 1, "iso^kidz~9six"
  53.     FPutLn 1, "36"
  54.     FPutLn 1, "1"
  55.     FPutLn 1, "drug^lord"
  56.     FPutLn 1, "28800"
  57.     FPutLn 1, "breifcase"
  58.     FPutLn 1, "64"
  59.     FPutLn 1, "2"
  60.     FPutLn 1, "mr.bean"
  61.     FPutLn 1, "115200"
  62.     FPutLn 1, "ny, usa"
  63.     FPutLn 1, "15"
  64.     FPutLn 1, "1"
  65.     FPutLn 1, "acidtrip"
  66.     FPutLn 1, "14400"
  67.     FPutLn 1, "at raves!"
  68.     FPutLn 1, "136"
  69.     FPutLn 1, "1"
  70.     FPutLn 1, "penops"
  71.     FPutLn 1, "9600"
  72.     FPutLn 1, "ozzie"
  73.     FPutLn 1, "45"
  74.     FPutLn 1, "2"
  75.     FClose 1
  76.     :LABEL001
  77.     FOpen 1, PPEPath() + "IKC-LST.DAT", 0, 2
  78.     FGet 1, STRING001
  79.     FGet 1, STRING002
  80.     FGet 1, STRING003
  81.     FGet 1, STRING004
  82.     FGet 1, STRING005
  83.     FGet 1, STRING006
  84.     FGet 1, STRING007
  85.     FGet 1, STRING008
  86.     FGet 1, STRING009
  87.     FGet 1, STRING010
  88.     FGet 1, STRING011
  89.     FGet 1, STRING012
  90.     FGet 1, STRING013
  91.     FGet 1, STRING014
  92.     FGet 1, STRING015
  93.     FGet 1, STRING016
  94.     FGet 1, STRING017
  95.     FGet 1, STRING018
  96.     FGet 1, STRING019
  97.     FGet 1, STRING020
  98.     FGet 1, STRING021
  99.     FGet 1, STRING022
  100.     FGet 1, STRING023
  101.     FGet 1, STRING024
  102.     FGet 1, STRING025
  103.     FClose 1
  104.     STRING001 = Left(STRING001, 13)
  105.     STRING002 = Left(STRING002, 6)
  106.     STRING003 = Left(STRING003, 24)
  107.     STRING004 = Left(STRING004, 4)
  108.     STRING005 = Left(STRING005, 3)
  109.     STRING006 = Left(STRING006, 13)
  110.     STRING007 = Left(STRING007, 6)
  111.     STRING008 = Left(STRING008, 24)
  112.     STRING009 = Left(STRING009, 4)
  113.     STRING010 = Left(STRING010, 3)
  114.     STRING011 = Left(STRING011, 13)
  115.     STRING012 = Left(STRING012, 6)
  116.     STRING013 = Left(STRING013, 24)
  117.     STRING014 = Left(STRING014, 4)
  118.     STRING015 = Left(STRING015, 3)
  119.     STRING016 = Left(STRING016, 13)
  120.     STRING017 = Left(STRING017, 6)
  121.     STRING018 = Left(STRING018, 24)
  122.     STRING019 = Left(STRING019, 4)
  123.     STRING020 = Left(STRING020, 3)
  124.     STRING021 = Left(STRING021, 13)
  125.     STRING022 = Left(STRING022, 6)
  126.     STRING023 = Left(STRING023, 24)
  127.     STRING024 = Left(STRING024, 4)
  128.     STRING025 = Left(STRING025, 3)
  129.     If (Exist(PPEPath() + "IKC-5LC.PCB")) Goto LABEL002
  130.     Print "@CLS@"
  131.     PrintLn "@X03ppe unable to find @X0BIKC-LAST.PCB@X03! Please notify the Operator!"
  132.     PrintLn "@X09Returning to " + ReadLine(PCBDat(), 94)
  133.     PrintLn ""
  134.     PrintLn ""
  135.     Wait
  136.     End
  137.     :LABEL002
  138.     Print "@CLS@"
  139.     DispFile PPEPath() + "IKC-5LC.PCB", 0
  140.     AnsiPos 7, 16
  141.     Print "@X02■ @X08" + STRING001
  142.     AnsiPos 26, 16
  143.     Print STRING003
  144.     AnsiPos 54, 16
  145.     Print STRING002
  146.     AnsiPos 64, 16
  147.     Print STRING004
  148.     AnsiPos 73, 16
  149.     Print STRING005
  150.     AnsiPos 7, 17
  151.     Print "@X02■ @X08" + STRING006
  152.     AnsiPos 26, 17
  153.     Print STRING008
  154.     AnsiPos 54, 17
  155.     Print STRING007
  156.     AnsiPos 64, 17
  157.     Print STRING009
  158.     AnsiPos 73, 17
  159.     Print STRING010
  160.     AnsiPos 7, 18
  161.     Print "@X02■ @X08" + STRING011
  162.     AnsiPos 26, 18
  163.     Print STRING013
  164.     AnsiPos 54, 18
  165.     Print STRING012
  166.     AnsiPos 64, 18
  167.     Print STRING014
  168.     AnsiPos 73, 18
  169.     Print STRING015
  170.     AnsiPos 7, 19
  171.     Print "@X02■ @X08" + STRING016
  172.     AnsiPos 26, 19
  173.     Print STRING018
  174.     AnsiPos 54, 19
  175.     Print STRING017
  176.     AnsiPos 64, 19
  177.     Print STRING019
  178.     AnsiPos 73, 19
  179.     Print STRING020
  180.     AnsiPos 7, 20
  181.     Print "@X02■ @X08" + STRING021
  182.     AnsiPos 26, 20
  183.     Print STRING023
  184.     AnsiPos 54, 20
  185.     Print STRING022
  186.     AnsiPos 64, 20
  187.     Print STRING024
  188.     AnsiPos 73, 20
  189.     Print STRING025
  190.     AnsiPos 1, 1
  191.     Print "@X08Last 5 callerz! @X07[@X0Fikc@X08^@X0Fprod@X07] @X09- @X03trip!"
  192.     :LABEL003
  193.     If (Inkey() == Chr(13)) Goto LABEL004
  194.     Goto LABEL003
  195.     :LABEL004
  196.     AnsiPos 24, 22
  197.     Print "@X0FIsolated Kids Creationz! @X07trippah"
  198.     Delay 3
  199.     End
  200.  
  201. ;------------------------------------------------------------------------------
  202. ;
  203. ; Usage report (before postprocessing)
  204. ;
  205. ; ■ Statements used :
  206. ;
  207. ;    2       End
  208. ;    1       Wait
  209. ;    9       Goto 
  210. ;    25      Let 
  211. ;    29      Print 
  212. ;    4       PrintLn 
  213. ;    3       If 
  214. ;    1       DispFile 
  215. ;    1       FCreate 
  216. ;    1       FOpen 
  217. ;    2       FClose 
  218. ;    25      FGet 
  219. ;    25      FPutLn 
  220. ;    1       GetUser
  221. ;    1       Delay 
  222. ;    27      AnsiPos 
  223. ;
  224. ;
  225. ; ■ Functions used :
  226. ;
  227. ;    11      +
  228. ;    1       ==
  229. ;    25      Left()
  230. ;    1       Chr()
  231. ;    1       Inkey()
  232. ;    1       PCBDat()
  233. ;    5       PPEPath()
  234. ;    1       ReadLine()
  235. ;    2       Exist()
  236. ;
  237. ;------------------------------------------------------------------------------
  238. ;
  239. ; Analysis flags : d
  240. ;
  241. ; d - Access PCBOARD.DAT ■ 2
  242. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  243. ;     for many PPE so they can find various informations on the system
  244. ;     (system paths, max number of lines in messages, ...) but it may also
  245. ;     be a way to gather vital informations.
  246. ;     ■ Search for : PCBDAT()
  247. ;
  248. ;------------------------------------------------------------------------------
  249. ;
  250. ; Postprocessing report
  251. ;
  252. ;    0       For/Next
  253. ;    0       While/EndWhile
  254. ;    0       If/Then or If/Then/Else
  255. ;    0       Select Case
  256. ;
  257. ;------------------------------------------------------------------------------
  258. ;                 AEGiS Corp - Break the routines, code against the machines!
  259. ;------------------------------------------------------------------------------
  260.